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Phonics Blocks, Phonetic Generalizations Outlined 

Passl: The -Pi'rs-f f>*>$5 eouJ\ letter Assigns -Me ncrrncLl Sennet 

Pass 2: 

When two of the same consonants appear side by side, only one is heard. 
Example: "berry 11 

Pass 3: 

f ch' = /ch/, phoneme #19 
Example: cherry 

Pass 4: 

When the letters 'ght' are together, 'g' and , h l are silent. 
Example: 'night' 

Pass 5: 

The letter 'g' makes a soft sound before the letters 'e' and T. 
Example: "gem" 

Pass 6: 

The letter 'c' makes a soft sound before the letters *e' and T. 
Example: "cent" 

Pass 7: 

When a word ends in f ck', it has the Ikl sound. 
Example: "sick" 

Pass 8: 

When a word begins with ! kn f , the letter V is silent. 
Example: "know" 

Pass 9: 

When a word begins with 'wr', the letter W is silent. 
Example: "write" 

Pass 10: 

Words having a double 'e\ usually have the long ! e' sound. 
Example: "feet" 

Passes 11 & 12: 

The letter V changes the quality of the preceding vowel. 
Example: "burn" 
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Pass 13: 

When the letter y is the final vowel in a word, it usually has a vowel sound. 
Example: "why" 

Pass 14: 

In 'ay 1 , the 'y' is silent and gives 'a' its long sound. 
Example: "play" 

Pass 15: 

If the only vowel is the final letter, it usually represents its long vowel sound. 
Example: 'me 1 

Pass 16: 

When the letter T is followed by the letters 'gh\ the T is long and the 'g' and 'h' are silent. 
Example: ! sigh' 

Pass 17: 

When two 'o's are next to each other, they represent the phoneme #43. 
Example: 'moon' 

Pass 18: 

When the letters f e ! and W are next to each other, they represent the phoneme #43. 
Example: 'dew 1 

Pass 19: 

When there is a f u f followed by a consonant and an f e\ the f u f represents the phoneme #43. 
Example: 'dude' 

Pass 20: 

When the letters V and V are next to each other (in the form 'ou'), they represent the 
phoneme #42. 

Example: 'proud' 

Pass 21: 

When the letter 'n ! is directly preceded by 'g', the f g' is silent. 
Example: 'gnu' 

Pass 22: 

When the letter y is directly preceded by V, they represent the phoneme #41 . 
Example: 'boy 1 

Pass 23: 



When the letter 'h' is directly preceded by the letter W, they represent the phoneme #24. 
Example: 'who 1 

Pass 24: 

Silent 'e' - makes the preceding vowel long (when there is a consonant between the 
two). 

Example: "name" 

Pass 25: 

When a word ends in 'ed', the preceding vowel represents its long vowel sound. 
Example: 

Pass 26: 

When a word ends in 'es\ the preceding vowel represents its long vowel sound. 
Example: 

Pass 27: 

When a word ends in 'er', the preceding vowel represents its long vowel sound. 
Example: 

Pass 28: 

When the letter 'u' is directly preceded by 'q\ the f q' represents phoneme #7 (/k/) and the 
V represents the phoneme #16 (/w/). 
Example: 'quilt' 

Pass 29: 

When the letter 'p 1 is directly followed by the letter 'h', they represent phoneme #3 {Iff). 
Example: 'phonies' 

Pass 30: 

When the letter 'n' is directly followed by the letter f g\ the 'n' represents phoneme #25 and 
the 'g f is silent. *Note, this needs to be changed in the code. 
Example: 'phonics' 

Pass 31: 

When the letter 's* is directly followed by the letter f h f , they represent the phoneme #20. 
Example: 'shut' 

Pass 32: - 

When the letter 't' is directly followed by the letter 'h', they represent the phoneme #22. 
Example: 'the' 

Pass 33: 

When the letter 'a' is directly followed by the letter W, they represent the phoneme #40. 



Example: 'draw 1 
Pass 34: 

When the letter 'a 1 is directly followed by the letter 'i 1 , they represent the phoneme #26. 
Example: 'paid 1 

Pass 35: 

When the letter f o' is directly followed by the letter 'a', they represent the phoneme #29. 
Example: 'boat' 

Pass 36: 

When the letter *e' is directly followed by the letter 'a 1 , they represent the phoneme #27. 
Example: 'pea 1 

Pass 37: 

When the letters 'ould' appear in this order, they represent the phoneme sequence 44, 44, 
0,2 

Example: 'could 1 
Pass 38: 

When the letters 'tion' appear in this order, they represent the phoneme sequence 20, 20, 
36, 10 

Example: 'nation' 
Pass 39: 

When the letters f sion' appear in this order, they represent the phoneme sequence 20, 20, 
36, 10 

Example: 'tension' 
Pass 40: 

When there are two Vs followed by 'e' or 'i', the first 'c f represents a hard sound (/k/), and 
the second 'c' represents a soft sound (/s/). 
Example: 'success 1 

Pass 41: 

When the letter 'o' is directly followed by the letter T, they represent the phoneme #41 . 
Example" 'foil' 

Pass 42: 

When 's' is the last letter in a word, it represents the sound /z/. 
Example: 'faces' 

Pass 43: 

When the letters 'tch 1 appear in this order, the T is silent. 



Example: 'itch 1 
Pass 44: 

When the letters V or 'k' are directly followed by 'h', the ! h' is silent. 
Example: 'rhino' 

Pass 45: 

When the letter 'm' is directly followed by the letter 'b\ the 'b' is silent. 
Example: 'lamb 1 

Pass 46: 

When the letters 'k' or 'm' are directly preceded by the letter T, the T is silent. 
Example: 'talk 1 , 'calm' 

Pass 47: 

When the letter 'b' is directly followed by the letter 't' at the end of a word, the 'b' is silent. 
Example: 'debt' 

Pass 48: 

When the letter *m' is directly followed by the letter 'n', the 'n' is silent. 
Example: 'hymn 1 

Pass 49: 

When an 'h' is the last letter of a word and is directly preceded by a vowel, the 'h' is silent. 
Example: ' 

Pass 50: 

When the string of letters 'who' are at the beginning of a word, the 'w' is silent. 
Example: 'who' 

Pass 100: 

When the letter 'd' is directly followed by the letter 'g' or the letter 'j', the 'd' is silent. 
Example: 'judge', 'adjust' 
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/vpassl { 



0 1 



wlen { 

/x exch def 

workingvword 1 get 



// array 



x 

Alphabet word x get get 

/snorm get 

put 

workingvword 2 get 
x 1 x bitshift put 



// array int 



// array int diet 



// array int string 



} for 

} def 

// double consonants 
/vpass2 { 

/prev 7 def 
0 1 wlen { 



/x exch def 

word x get prev eq { 

x x 1 sub light2gether 



}for 

} def 

II ch 
/vpass3 { 

/prev 7 def 
0 1 wlen { 

/x exch def 

word x get 'h' eq prev 'c f eq and { 



x x 1 sub Hght2gether 
M 19" x soundlikethis 
"19" x 1 sub soundlikethis 



} for 

}def 

light 
/vpass4 { 

2 1 wlen { 



/x exch def 

word x get T eq { 

word x 1 sub get 'h ! eq 
word x 2 sub get f g' eq 





and { 



}if 

}if 

}for 

}def 

//soft'g' 
/vpass5 { 

0 1 wlen 1 sub { 



x x 1 sub x 2 sub light3gether 
"0" x 1 sub soundlikethis 
"0" x 2 sub soundlikethis 



/x exch def 

word x get 'g' eq { 

word x 1 add get T eq 
word x 1 add get f e' eq 
or{ 



x x 1 add lightthistoo 
"6" x soundlikethis 



>if 



>if 



} for 

} def 



// soft V 
/vpass6 { 

0 1 wlen 1 sub { 



/x exch def 

word x get 'c' eq { 

word x 1 add get T eq 
word x 1 add get 'e' eq 
or{ 



x x 1 add lightthistoo 
"13" x soundlikethis 



} for 

}def 



}if 

}if 



// 'ck' at the end 
/vpass7 { 

word wlen 2 sub get 'c' eq { 

word wlen 1 sub get 'k' eq { 

wlen 2 sub wlen 1 sub light2gether 
"7" wlen 2 sub soundlikethis 



"7" wlen 1 sub soundlikethis 

}if 

}if 

} def 

// 'kn' at the beginning 4 
/vpass8 { 

word 0 get 'k' eq { 

word 1 get 'n' eq { 

0 1 lightthistoo 
"0" 0 soundlikethis 

}if 

}if 

}def 

// 'wr' at the beginning 
/vpass9 { 

word 0 get W eq { 

word 1 get V eq { 

0 1 lightthistoo 
"0" 0 soundlikethis 

}if 

}if 

}def 

// double e 
/vpasslO { 

/prev '.' def 

0 1 wlen { 

/x exch def 

word x get 'e' eq prev 'e' eq and { 
x x 1 sub light2gether 
"27" x soundlikethis 
"27" x 1 sub soundlikethis 

}if 

/prev word x get def 

}for 

}def 

// vowel preceeds V 
/vpassll { 

1 1 wlen { 

/x exch def 
word x get V eq { 



word x 1 sub get 'i' eq { 

"38" x soundlikethis 
"38" x 1 sub soundlikethis 
x 1 sub x lightthistoo 

}if 

word x 1 sub get 'u' eq { 

"38" x soundlikethis 
"38" x 1 sub soundlikethis 
x 1 sub x lightthistoo 

}if 

word x 1 sub get 'e' eq { 

"38" x soundlikethis 
"38" x 1 sub soundlikethis 
x 1 sub x lightthistoo 

}if 

word x 1 sub get 'a' eq { 

"39" x soundlikethis 
"39" x 1 sub soundlikethis 
x 1 sub x lightthistoo 

}if 

word x 1 sub get 'o' eq { 

"48" x soundlikethis 
"48" x 1 sub soundlikethis 
x 1 sub x lightthistoo 

>if 

}if 

/prev word x get def 

} for 

}def 

/vpassl2 { 

1 1 wlen 1 sub { 
/x exch def 

word x get V eq word x 1 add get f e ! eq and { 
word x 1 sub get ! a' eq { 
//the 'a' 

"37" x 1 sub soundlikethis 
x 1 sub x lightthistoo 
x 1 sub x 1 add lightthistoo 
//the'e' 

"0" x 1 add soundlikethis 
x 1 add x 1 sub lightthistoo 

}if 

word x 1 sub get 'o' eq { 

"48" x 1 sub soundlikethis 



} for 

}def 



x 1 sub x lightthistoo 

x 1 sub x 1 add lightthistoo 

//the 'e* 

"0" x 1 add soundlikethis 
x 1 add x 1 sub lightthistoo 

}if 

}if 

/prev word x get def 



/vpassB { 

word wlen 1 sub get 'y ? e Q { 
coxintvowels 0 eq { 

"28" wlen 1 sub soundlikethis 

}{ 

"27" wlen 1 sub soundlikethis 



}if 

}def 



} ifelse 



/vpassl4 { 

1 1 wlen { 



/x exch def 

word x get y eq { 

word x 1 sub get 'a' eq { 

"26" x 1 sub soundlikethis 
"0" x soundlikethis 
x x 1 sub light2gether 

}if 

}if 



} for 

}def 



/vpasslS { 

countvowels 1 eq { 

/pos wlen 1 sub def 

/letter word wlen 1 sub get def 

letter 'e ! eq { 

"27" pos soundlikethis 

}if 

letter T eq { 

"28" pos soundlikethis 



# 

}if 

letter 'o' eq { 

"29" pos soundlikethis 

}if 

}if 

} def 



/vpassl6 { 

2 1 wlen { 

/x exch def 

word x get 'h' eq word x 1 sub get 'g' eq and { 
word x 2 sub get 'i' eq { 

"0" x soundlikethis 
"0" x 1 sub soundlikethis 
"28" x 2 sub soundlikethis 
x x 1 sub x 2 sub light3gether 

}if 

}if 

}for 

}def 



// double o 
/vpassl7 { 

/prev 7 def 
0 1 wlen { 

/x exch def 

word x get 'o' eq prev 'o' eq and { 
x x 1 sub light2gether 
"43" x soundlikethis 
"43" x 1 sub soundlikethis 



}if 

/prev word x get def 

} for 

}def 



// ew 
/vpassl8 { 

1 1 wlen { 

/x exch def 

word x get 'w f eq word x 1 sub get f e' eq and { 
x x 1 sub light2gether 
"43 " x soundlikethis 
"43" x 1 sub soundlikethis 



}if 

} for 

}def 



// u consonant e 
/vpassl9 { 

2 1 wlen { 

/x exch def 

word x get V eq word x 2 sub get V eq and { 
word x 1 sub get isconsonant { 
x x 2 sub light2gether 
"0" x soundlikethis 
"43" x 2 sub soundlikethis 

}if 

}if 

}for 

}def 

//W 
/vpass20 { 

1 1 wlen { 

/x exch def 

word x get V eq word x 1 sub get V eq and { 
x x 1 sub light2gether 
"42" x soundlikethis 
"42" x 1 sub soundlikethis 

}if 

}for 

} def 

//'gn' 
/vpass21 { 

1 1 wlen { 

/x exch def 

word x get 'n' eq word x 1 sub get 'g' eq and { 
x 1 sub x lightthistoo 
"0" x 1 sub soundlikethis 

}if 

}for 

}def 



Hoy 
/vpass22 { 
01 



wlen 1 sub { 
fx exch def 



word x get 'o' eq 
word x 1 add get y eq and { 
"41" x soundlikethis 
"41" x 1 add soundlikethis 
x x 1 add light2gether 

}if 

} for 

}def 



//'wh' 
/vpass23 { 

/prev '.' def 
0 1 wlen { 

/x exch def 

word x get 'h' eq prev V eq and { 
x x 1 sub light2gether 
"24" x soundlikethis 
"24" x 1 sub soundlikethis 

}if 

/prev word x get def 

}for 

}def 

// silent 'e f at end 
/vpass24 { 

word wlen 1 sub get 'e' eq { 
countvowels 2 eq { 

word wlen 2 sub get isconsonant { 
"0" wlen 1 sub soundlikethis 
0 1 wlen 2 sub { 

fx exch def 

/letter word x get def 

letter f a' eq { 

"26" x soundlikethis 
wlen 1 sub x light2gether 

}if 

letter 'e* eq { 

M 27 n x soundlikethis 
wlen 1 sub x light2gether 

>if 

letter T eq { 

"28" x soundlikethis 
wlen 1 sub x light2gether 



letter 'o' eq { 

"29" x soundlikethis 
wlen 1 sub x light2gether 

}if 

letter 'u' eq { 

"43" x soundlikethis 
wlen 1 sub x light2gether 

}if 

} for 

}if 

}if 

}if 

}def 

//ed 
/vpass25 { 

word wlen 1 sub get 'd f eq word wlen 2 sub get 'e' eq and { 
countvowels 2 eq { 

word wlen 3 sub get isconsonant { 

"0" wlen 2 sub soundlikethis // e silent 
0 1 wlen 3 sub { 

/x exch def 

/letter word x get def 

letter V eq { 

"26" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter 'e ? eq { 

"27" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter T eq { 

"28" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter V eq { 

"29" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter 'u' eq { 

"43" x soundlikethis 
wlen 2 sub x light2gether 

}if 

} for 

}if 



}if 

}if 

}def 



//es 
/vpass26 { 

word wlen 1 sub get 's' eq word wlen 2 sub get 'e' eq and { 
countvowels 2 eq { 

word wlen 3 sub get isconsonant { 

"0" wlen 2 sub soundlikethis // e silent 
0 1 wlen 3 sub { 

/x exch def 

/letter word x get def 

letter 'a* eq { 

"26" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter 'e' eq { 

n 27" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter T eq { 

"28" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter V eq { 

"29" x soundlikethis 
wlen 2 sub x light2gether 

}if 

letter *u' eq { 

"43" x soundlikethis 
wlen 2 sub x light2gether 

}if 

} for 

}if 

}if 

}if 

}def 

//er 
/vpass27 { 

word wlen 1 sub get V eq word wlen 2 sub get 'e' eq and { 
countvowels 2 eq { 

word wlen 3 sub get isconsonant { 

"38" wlen 1 sub soundlikethis // 



"38" wlen 2 sub soundlikethis // 
wlen 1 sub wlen 2 sub Hght2gether 

0 1 wlen 3 sub { 

/x exch def 

/letter word x get def 

letter 'a' eq { 

"26" x soundlikethis 
x wlen 2 sub lightthistoo 

}if 

letter 'e' eq { 

"27" x soundlikethis 
x wlen 2 sub lightthistoo 

>if 

letter T eq { 

"28" x soundlikethis 
x wlen 2 sub lightthistoo 

}if 

letter f o' eq { 

"29" x soundlikethis 
x wlen 2 sub lightthistoo 

}if 

letter 'u* eq { 

"30" x soundlikethis 
x wlen 2 sub lightthistoo 

}if 

} for 

}if 

}if 

}if 

}def 

//qu 
/vpass28 { 

0 1 wlen 1 sub { 
/x exch def 

word x get 'q' eq word x 1 add get 'u' eq and { 
"46" x soundlikethis 
"46" x 1 add soundlikethis 
x x 1 add light2gether 

}if 

} for 

} def 



//ph 




/vpass29 { 

0 1 wlen 1 sub { 
/x exch def 

word x get 'p' eq word x 1 add get 'h' eq and { 
x x 1 add light2gether 
"3" x soundlikethis 
"3" x 1 add soundlikethis 

}if 

} for 

} def 



ling 
/vpass30 { 
0 1 



} def 



}for 



wlen 1 sub { 
/x exch def 

word x get 'n' eq word x 1 add get 'g* eq and { 
x x 1 add light2gether 
"25" x soundlikethis 
"25" x 1 add soundlikethis 

}if 



II sh 
7vpass31 { 
0 1 



}def 



} for 



wlen 1 sub { 
/x exch def 

word x get 's' eq word x 1 add get 'h' eq and { 
x x 1 add light2gether 
"20" x soundlikethis 
"20" x 1 add soundlikethis 

}if 



II th 
/vpass32 { 
0 1 



} for 



wlen 1 sub { 
/x exch def 

word x get 't' eq word x 1 add get 'h' eq and { 
x x 1 add light2gether 
"22" x soundlikethis 
"22" x 1 add soundlikethis 

}if 



} def 



//aw 
/vpass33 { 

word wlen 2 sub get 'a' eq 
word wlen 1 sub get V eq and { 

wlen 2 sub wlen 1 sub light2gether 
"40" wlen 2 sub soundlikethis 
"40" wlen 1 sub soundlikethis 



}def 



//ai 
/vpass34 { 
0 1 



}for 



}def 



wlen 1 sub { 
/x exch def 

word x get 'a' eq word x 1 add get 'i' eq and { 
x x 1 add light2gether 
"26" x soundlikethis 
"26" x 1 add soundlikethis 

}if 



//oa 
/vpass35 { 
0 1 



}def 



}for 



wlen 1 sub { 
/x exch def 

word x get 'o' eq word x 1 add get 'a' eq and { 
x x 1 add light2gether 
"29" x soundlikethis 
"29" x 1 add soundlikethis 

}if 



//ea 
/vpass36 { 
0 1 



wlen 1 sub { 
/x exch def 

word x get 'e' eq word x 1 add get 'a' eq and { 
x x 1 add light2gether 
"27" x soundlikethis 
"27" x 1 add soundlikethis 

}if 



} for 

} def 



// ould 
/vpass37 { 
0 1 



} def 



} for 



wlen 3 sub { 
/x exch def 

word x get 'o' eq word x 1 add get 'u' eq and { 

word x 2 add get T eq word x 3 add get 'd' eq and { 
x x 1 add light2gether 
"44" x soundlikethis 
"44" x 1 add soundlikethis 
"0" x 2 add soundlikethis 
x 2 add x lightthistoo 
x 2 add x 1 add lightthistoo 
x 2 add x 3 add lightthistoo 



}if 



}if 



//tion 
/vpass38 { 
0 1 



}def 



} for 



wlen 3 sub { 
/x exch def 

word x get 't' eq word x 1 add get 'i' eq and { 

word x 2 add get V eq word x 3 add get 'n' eq and { 
"20" x soundlikethis 
"20" x 1 add soundlikethis 
"36" x 2 add soundlikethis 
x x 1 add x 2 add light3gether 
x x 3 add lightthistoo 
x 1 add x 3 add lightthistoo 
x 3 add x 3 add lightthistoo 



}if 



}if 



// sion 



/vpass39 { 
0 1 



wlen 3 sub { 
/x exch def 

word x get 's' eq word x 1 add get 'i* eq and { 

word x 2 add get V eq word x 3 add get 'n* eq and { 




}def 



}for 



}if 



}if 



"20" x soundlikethis 
"20" x 1 add soundlikethis 
"36" x 2 add soundlikethis 
x x 1 add x 2 add light3gether 
x x 3 add lightthistoo 
x 1 add x 3 add lightthistoo 
x 3 add x 3 add lightthistoo 



// cc[ei] 
/vpass40 { 
0 1 



5"1i 



}for 



wlen 2 sub { 
/x exch def 

word x get 'c' eq word x 1 add get 'c' eq and { 
word x 2 add get 'e' eq 
word x 2 add get T eq and { 
"7" x soundlikethis 
"13" x 1 add soundlikethis 
x x 1 add light2gether 
x x 2 add lightthistoo 
x 1 add x 2 add lightthistoo 



}if 



}if 



//oi 
/vpass41 { 
0 1 



wlen 1 sub { 

/x exch def 

word x get V eq 

word x 1 add get T eq and { 
x wlen 3 sub ge { 

"41" x soundlikethis 
"41" x 1 add soundlikethis 
x x 1 add light2gether 



// if there can't be an *ng ! 



}{ 



// not n = false, not g = false 

word x 2 add get 'n f ne 

word x 3 add get 'g f ne or { 
M 41 M x soundlikethis 
M 41 M xl add soundlikethis 



x x 1 add light2gether 

}if 

} ifelse 

}if 

} for 

} def 



// s at end 
/vpass42 {. 

word wlen 1 sub get 's' eq 
wlen 2 ge and { 

wlen 2 sub getthissound isvoiced { 

"18" wlen 1 sub soundlikethis 



}if 
}def 

//tch 
/vpass43 { ■ 

2 1 wlen { 



} for 

}def 



}{ 

wlen 3 ge { 

wlen 2 sub getthissound issilent { 

wlen 3 sub getthissound isvoiced { 

"18" wlen 1 sub soundlikethis 

}if 

}if 

}if 

} ifelse 



/x exch def 

word x get f h f eq { 

word x 1 sub get V eq 
word x 2 sub get f t' eq 
and { 



}if 



}if 



"0" x 2 sub soundlikethis 
x 2 sub x 1 sub lightthistoo 
x 2 sub x lightthistoo 



//rh-kh 
/vpass44 { 




1 1 wlen { 

/x exch def 
word x get 'h' eq { 

word x 1 sub get V eq 
word x 1 sub get *k' eq or { 
"0" x soundlikethis 
x x 1 sub lightthistoo 

}if 

}if 

} for 

}def 



limb 
/vpass45 { 

1 1 wlen { 

/x exch def 
word x get V eq { 

word x 1 sub get 'm* eq { 
"0" x soundlikethis 
x x 1 sub lightthistoo 

}if 

}if 

}for 

} def 



//lk-lm 
/vpass46 { 

0 1 wlen 1 sub { 
/x exch def 
word x get T eq { 

word x 1 add get 'm' eq 
word x 1 add get V eq or { 
"0" x soundlikethis 
x x 1 add lightthistoo 

}if 

}if 

}for 

}def 

// bt at the end 
/vpass47 { 

word wlen 1 sub get T eq 
word wlen 2 sub get V eq and { 




M 0" wlen 2 sub soundlikethis 
wlen 2 sub wlen 1 sub lightthistoo 

}if 

}def 

// mn 
/vpass48 { 

0 1 wlen 1 sub { 
/x exch def 
word x get 'm 1 eq { 

word x 1 add get 'n ? eq { 

"0" x 1 add soundlikethis 
x 1 add x lightthistoo 

}if 

}if 

}for 

}def 

O // vowel h at end 

^0 /vpass49 { 

^ word wlen 1 sub get 'h' eq { 

:ff word wlen 2 sub get isvowel { 

m "0" wlen 1 sub soundlikethis 

s,( wlen 1 sub wlen 2 sub lightthistoo 

£ ■ }if 

u } if 

D } def 

^ // 'who' at beginning of word (must fix up wh rule) 

JSj /vpassSO { 

[T wlen 3 ge { 

word 0 get W eq { 

word 1 get 'h* eq 
word 2 get f 0' eq and { 

"0" 0 soundlikethis 

"5" 1 soundlikethis // h back to before wh rule 

0 1 lightthistoo 
0 2 lightthistoo 

}if 

}if 

}if 

} def 



// d - j sound 
/vpasslOO { 



0 1 wlen 1 sub { 
/x exch def 
word x get f d' eq { 

x 1 add getthissound "6" eq { 
"0" x soundlikethis 
x x 1 add lightthistoo 



} for 

}def 



}if 

}if 



// ? sm 
/vpasslOl { 

1 1 wlen 1 sub { 



}for 

}def 



/x exch def 

word x get *s' eq word x 1 add get 'm' eq and { 
x 1 sub getthissound isvoiced { 
"18" x soundlikethis 
x x 1 add lightthistoo 
x x 1 sub lightthistoo 

}if 

}if 



/lastpass { 

workingvword 2 get { 

itoahex 
} foreach 

}def 

/light2gether { 

/xl exch def 
/x2 exch def 

/lights workingvword 2 get def 

lights xl lights xl get 1 x2 bitshift or put 

lights x2 lights x2 get 1 xl bitshift or put 

}def 



/Hght3gether { 

/x3 exch def 



/x2 exch def 
/xlexchdef 

/lights workingvword 2 get def 
lights xl lights xl get 1 x2 bitshift or put 
lights xl lights xl get 1 x3 bitshift or put 
lights x2 lights x2 get 1 xl bitshift or put 
lights x2 lights x2 get 1 x3 bitshift or put 
lights x3 lights x3 get 1 xl bitshift or put 
lights x3 lights x3 get 1 x2 bitshift or put 
}def . 



/lightthistoo { 

/x2 exch def 
/xl exch def 

/lights workingvword 2 get def 

lights xl lights xl get 1 x2 bitshift or put 

}def 

/soundlikethis { 

/xl exch def 
/xs exch def 

/sounds workingvword 1 get def 
sounds xl xs put 

}def 

/getthissound { 

workingvword 1 get exch get 

}def 

/countvowels { 
0 

word { 

/x exch def 
x 'a' eq 
x 'e f eq or 
x T eq or 
x 'o' eq or 
x f u f eq or 

{ 

1 add 

}if 

} forall 

}def 




/vowels "aeiou" def 

/isvowel { 

/I exch def 
false 
vowels { 

1 eq or 

} forall 

} def 

/consonants "bcdfghjklmnpqrstvwxyz" def 

/isconsonant { 

/l exch def 
false 

consonants { 
1 eq or 

} forall 

5 > def 

« /voiced [ "1" "2" "4" "6" "8" "9" "10" "12" "15" "16" "17" "18" "21" "23" "25" "26" "27" "28" "29" 
:™ "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" ] def 

; M /isvoiced { 
■-f /ss exch def 

" n false 
jrj voiced { 

2 } forall 

O } def 

/issilent { 

"0" eq 

}def 



/dumpword { 

dup 0 get print 

dup 1 get { cvs ", " cat prin } forall 
"" print 

dup 2 get { cvs ", " cat prin } forall 
"" print 
3 get print 
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/Alphabet 50 diet dup begin 

'a' aDict def 

'b' bDict def 

'c' cDict def 

•d' dDict def 

'e' eDict def 

T fDict def 

'g' gDict def 

'h' hDict def 

'i' iDict def 

'j' jDict def 

V kDict def 
T IDict def 
'm' mDict def 
'n' nDict def 

V oDict def 
*p' " pDict def 
'q' qDict def 

V rDictdef 
's' sDict def 
'f tDict def 
'u' uDict def 

V vDict def 
W wDict def 

V xDict def 
y yDict def 
'z' zDict def 



end 



def 



} def 



/aDict LetterObj subclass dup begin 
/isvowel { true } def 
/snorm "31" def 
/sounds [ 

"31" 

wavname 

readwav not { "readwav error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style l_a" 

wavname 

readwav not { "readwav error" logstring } if 
dup buildwav not { "buildwav error" logstring } if 

]def 
end 



/bDict LetterObj subclass dup begin 
/isyowel { false } def 
/snorm "1" def 
/sounds [ 

wavname 

readwav not { "file error" logstring } if 
dup buildwav not { "buildwav error" logstnng } it 

"stylel_b" 
wavname 

readwav not { "file error" logstnng } if 
dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/cDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "7" def 
fn /sounds [ 

S| "7" 

«E wavname . 

readwav not { "file error" logstring } if 
O dup buildwav not { "buildwav error" logstring } if 

g "style l_c" 

~n wavname , 

E readwav not { "file error" logstring } if 

Z dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/dDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "2" def 
/sounds [ 
"2" 

wavname , 
readwav not { "file error" logstring } it 



dup buildwav not { "buildwav error" logstring } if 

"style l_d" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/eDict LetterObj subclass dup begin 
/isyowel { true } def 
/snorm "32" def 
/sounds [ 

"32" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"stylel_e" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/fDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "3" def 
/sounds [ 
"3" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"stylel_f 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/gDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "4" def 
/sounds [ 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error" logstring } if 

"stylel_g" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/hDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "5" def 
/sounds [ 
"5" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style lji" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/iDict LetterObj subclass dup begin 
/isvowel { true } def 
/snorm "33" def 
/sounds [ 

"33" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style2_i" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/jDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "6" def 
/sounds [ 
"6" 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error* 1 logstring } if 

"style2j" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

] def 
end 

def 

/kDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "7" def 
/sounds [ 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style2Jc" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/IDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "8" def 
/sounds [ 
"8" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style2J" 

wavname 

readwav not { /'file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/mDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "9" def 
/sounds [ 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error" logstring } if 

"style2_m" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/nDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "10" def 
/sounds [ 

"10" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style2_n" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/oDict LetterObj subclass dup begin 
/isvowel { true } def 
/snorm "34" def 
/sounds [ 

"34" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style3_o" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/pDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "11" def 
/sounds [ 

"11" 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error 1 ' logstring } if 

M style3_p" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/qDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "46" def 
/sounds [ 

"46" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

w style3_q" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/rDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "12" def 
/sounds [ 

"12" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style3_r" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/sDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "13" def 
/sounds [ 

"13" 

wavname 

readwav not { "file error" logstring } if 



^Nl 

dup buildwav not { "buildwav error 11 logstring } if 

"style3_s" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/tDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "14" def 
/sounds [ 

"14" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style3_t" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/uDict LetterObj subclass dup begin 
/isvowel { true } def 
/snorm "35" def 
/sounds [ 

"35" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style4_u" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/vDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "15" def 
/sounds [ 

"15" 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error" logstring } if 

"style4_v" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/wDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "16" def 
/sounds [ 

"16" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style4_w" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 

/xDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "47" def 
/sounds [ 

"47" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

"style4_x" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

] def 
end 

def 

/yDict LetterObj subclass dup begin 
/isvowel { false } def 
/snorm "17" def 
/sounds [ 

"17" 

wavname 

readwav not { "file error" logstring } if 



dup buildwav not { "buildwav error" logstring } if 

"style4_y" 

wavname 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } it 

] def 
end 

def 

/zDict LettejObj subclass dup begin 
/isvowel { false } def 
/snorm "18" def 
/sounds [ 

"18" 

wavname 

readwav not { "file error" logstring } it 

dup buildwav not { "buildwav error" logstring } if 

"style4_z" 

wavname . 

readwav not { "file error" logstring } if 

dup buildwav not { "buildwav error" logstring } if 

]def 
end 

def 



